﻿Public Class DisplayLog

    Private m_Log As Generic.List(Of String)
    Public Property Log() As Generic.List(Of String)
        Get
            Return m_Log
        End Get
        Set(ByVal value As Generic.List(Of String))
            m_Log = value
        End Set
    End Property

    Private Sub DisplayLog_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim _sb As New System.Text.StringBuilder
        For Each _entry As String In m_Log
            _sb.AppendLine(_entry)
        Next
        tbLog.Text = _sb.ToString
    End Sub
End Class